read_expenditure_data<-function(){
  wd<-setwd(wd_data_raw)
  setwd("./spending/")
  
  purchases_all_matched_raw<-readRDS('purchases_all_matched')
  contracts_all_matched_raw<-readRDS('contracts_all_matched')
  
  
  data_expenditure<-list(purchases_all_matched_raw,contracts_all_matched_raw)
  
  setwd(wd_data_final)
  saveRDS(data_expenditure,'data_expenditure')
  return(data_expenditure)
}